extern int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *ipiv, integer *info, ftnlen uplo_len);
/*:ref: lsame_ 12 4 13 13 124 124 */
/*:ref: xerbla_ 14 3 13 4 124 */
/*:ref: idamax_ 4 3 4 7 4 */
/*:ref: dswap_ 14 5 4 7 4 7 4 */
/*:ref: dspr_ 14 7 13 4 7 7 4 7 124 */
/*:ref: dscal_ 14 4 4 7 7 4 */
/*:ref: dlaev2_ 14 7 7 7 7 7 7 7 7 */
/*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
